home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / tpstuff1.arc / DEFDEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-08-08  |  962 b   |  38 lines
  1. {$I Var.Inc}
  2. {$I Windmngr.Inc}
  3. {$I DemoDefs.Inc}
  4. {$I Growwin.Inc}
  5.  
  6. var ch:char;
  7.     i:integer;
  8.  
  9. begin
  10.      Initialize;
  11.      clrscr;
  12.      i:=0;
  13.      Select_window(1);
  14.      Select_Window(2);
  15.      Select_Window(3);
  16.      repeat
  17.            Select_Window(1);
  18.            Write('Window number 1 ');
  19.            Select_window(2);
  20.            write('Window number 2 ');
  21.            Select_window(3);
  22.            write('Window number 3 ');
  23.            i:=i+1;
  24.            if i=40 then
  25.                 begin
  26.                       Grow_window(22,7,58,22,14,0,2);
  27.                       textcolor(2);
  28.                       for i:=1 to 100 do
  29.                           begin
  30.                                write(' Growing Window ');
  31.                                delay(10)
  32.                           end;
  33.                       delay(1000);
  34.                       remove(1);
  35.                       i:=0
  36.                 end
  37.      Until keypressed
  38. end.